Group=Simple Deform
Name=Pȏk
Init=coord=-1;\n?a1,,0,100,100;\n?a2,c,0,100,0;\n?k,%̃sNZ,0,1,0;\ncx=cy=0;\n_Fill(0,0,0);\n_FillT(0);\nif(k==0){\nif(a1==0){\na1=a2;\n}\nif(a2==0){\na2=a1;\n}\na1=int(0.5+xs*a1/100)/xs;\na2=int(0.5+ys*a2/100)/ys;\n} else {\nif(a1==0){\na1=int(xs*a2/ys);\n}\nif(a2==0){\na2=int(ys*a1/xs);\n}\na1=a1/xs;\na2=a2/ys;\n}\n
Prog=b1=b2=0;\nwhile((a1*(xs-1))>=b1){\nwhile((a2*(ys-1))>=b2){\nR=G=B=0;\nb3=int((b1+0.5)/a1);\nb4=int((b2+0.5)/a2);\nadd(b3,b4,1);\nT=T(b3,b4);\n_Pset(b1,b2);\n_Tset(b1,b2);\nb2=b2+1;\n}\nb1=b1+1;\nb2=0;\n}\nexit(-1);